home *** CD-ROM | disk | FTP | other *** search
/ Let's Learn About Machines / Let's Learn About Machines.iso / mac / macfiles / Things / Shared.Dxr / 00900.ls next >
Encoding:
Text File  |  1997-09-18  |  1.7 KB  |  72 lines
  1. on startMovie
  2.   set HC to the number of cast "handCursor"
  3.   cursor([HC, HC + 1])
  4.   set HC to the number of cast "handCursor"
  5.   cursor([HC, HC + 1])
  6. end
  7.  
  8. on wait ticks
  9.   set temp to the timer
  10.   repeat while (the timer - temp) < ticks
  11.   end repeat
  12. end
  13.  
  14. on waitMouse ticks
  15.   set temp to the timer
  16.   repeat while ((the timer - temp) < ticks) and not (the mouseDown)
  17.   end repeat
  18. end
  19.  
  20. on autospin
  21.   set whichSprite to the clickOn
  22.   set default to the castNum of sprite whichSprite
  23.   set current to 0
  24.   set current to current + 1
  25.   set the castNum of sprite whichSprite to default + current
  26.   updateStage()
  27.   wait(5)
  28.   repeat while the stillDown
  29.     if rollOver(whichSprite) then
  30.       set current to current + 1
  31.       if current = 15 then
  32.         set current to 1
  33.       end if
  34.       set the castNum of sprite whichSprite to default + current
  35.     else
  36.       set the castNum of sprite whichSprite to default + current
  37.     end if
  38.     updateStage()
  39.     wait(5)
  40.   end repeat
  41.   repeat while current < 14
  42.     set current to current + 1
  43.     set the castNum of sprite whichSprite to default + current
  44.     updateStage()
  45.     wait(5)
  46.   end repeat
  47.   set the castNum of sprite whichSprite to default
  48.   updateStage()
  49.   action(script default)
  50. end
  51.  
  52. on autohilite
  53.   set whichSprite to the clickOn
  54.   set default to the castNum of sprite whichSprite
  55.   set the castNum of sprite whichSprite to default + 1
  56.   updateStage()
  57.   wait(5)
  58.   repeat while the stillDown
  59.     if rollOver(whichSprite) then
  60.       set the castNum of sprite whichSprite to default + 1
  61.     else
  62.       set the castNum of sprite whichSprite to default
  63.     end if
  64.     updateStage()
  65.   end repeat
  66.   set the castNum of sprite whichSprite to default
  67.   updateStage()
  68.   if rollOver(whichSprite) then
  69.     action(script default)
  70.   end if
  71. end
  72.